(command-line): Convert command line args

to Emacs internal representation using locale-coding-system.

diff --git a/lisp/startup.el b/lisp/startup.el
index f9b2c2633d10c5b74db3f85bcf4ddbe8f84903bc..ef609e0f79858f799bbfb7a494fde55542aaa6fb 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -698,6 +698,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 
   (set-locale-environment nil)
 
+  ;; Convert the arguments to Emacs internal representation.
+  (let ((args (cdr command-line-args)))
+    (while args
+      (setcar args
+             (decode-coding-string (car args) locale-coding-system t))
+      (setq args (cdr args))))
+
   (let ((done nil)
        (args (cdr command-line-args)))